Your Choice 3

home *** CD-ROM | disk | FTP | other *** search

/ Your Choice 3 / Your Choice Software Collection 3.iso / service / foxpro2 / foxapp.app (.txt) < prev next >

Wrap

MS Visual FoxPro App | 1994-01-01 | 89KB | 1,387 lines

TALKz SAFETYz forceregenf TALKz COMPATIBLEz appgen FoxPro Application Generator addbs forceext defaultext juststem justext justpath justfname cleanpath foxapp ERROR DO apperror WITH PROGRAM(),MESSAGE(),MESSAGE(1),LINENO(),ERROR() ESCAPE DO appescape WITH PROGRAM(),MESSAGE(),MESSAGE(1),LINENO(),ERROR() fpath APPMENU.MNX COMMAND FOXAPP GENERATE Error opening CONFIG.FP. FOXAPP MENUS\APPMENU.PRG2 MENUS\APPMENU.MPR2 MENUS\APPMENU.MPR COPY FILE MENUS\appmenu.prg TO &mpr_name appmenu.prg2 appmenu.mpr2 appmenu.mpr COPY FILE appmenu.prg TO &mpr_name FOXAPP\MENUS\APPMENU.PRG2 FOXAPP\MENUS\APPMENU.MPR2 FOXAPP\MENUS\APPMENU.MPR COPY FILE foxapp\MENUS\appmenu.prg TO &mpr_name MENUS\APPMENU.PRG2 MENUS\APPMENU.MPR2 MENUS\APPMENU.MPR DELETE FILE &mpr_name appmenu.prg2 appmenu.mpr2 appmenu.mpr DELETE FILE &mpr_name FOXAPP\MENUS\APPMENU.PRG2 FOXAPP\MENUS\APPMENU.MPR2 FOXAPP\MENUS\APPMENU.MPR DELETE FILE &mpr_name MENUS\APPMENU.PRG2 MENUS\APPMENU.MPX2 MENUS\APPMENU.MPX DELETE FILE &mpx_name appmenu.prg2 appmenu.MPX2 appmenu.MPX DELETE FILE &mpx_name FOXAPP\MENUS\APPMENU.PRG2 FOXAPP\MENUS\APPMENU.MPX2 FOXAPP\MENUS\APPMENU.MPX DELETE FILE &mpx_name appgen Screen name: Database name: Step 2 : Design a screen Step 1: Create or modify a database @*VN \<Create @*VN \<Modify @*VN \<File List @*HN Re\<lated... @*VN C\<reate @*VN M\<odify @*VN F\<ile List @*VN \!\<Generate @*HN \<Advanced @*VN \?\<Cancel appgen The screen file is missing. The database file is missing. Locate please FoxApp has created an application named F in the F directory. You can run your application now by pressing any key. To run it in the future, simply select "Application" from the RUN menu, or enter FoxPro and type: SET DEFAULT TO F DO F Thank you for using FoxApp! Press any key to start your application. RSCUSED C:FORCEREGENAPP_TALK APP_SAFE CURRAREA NTALKSTAT COMPSTAT APPGEN ADDBS FORCEEXT DEFAULTEXTJUSTSTEM JUSTEXT PRJUSTPATH GJUSTFNAME CLEANPATH APPFILE PAMNUNAME DBFNAME PRSCXNAME REPNAME TMFNAME SKIPDBFBUTDBFLIST FIRSTTIME ORIGNAME APP_ERROR APP_ESCAPEFOXAPP APEFPATH CAPEAPPPATHLENGENERATE NCANCBUT ADDDBF ADDSCX MODSCX MODDBF COMMAND ENNUMCOLS NUMAREAS CSTEMNUM RELSTRNUM PFLDNUM xCFLDNUM CDBFNUM PDBFNUM SROWNUM SCOLNUM NSEROWNUM PRECOLNUM ARRANGED CTRLROW CTRLCOL NEXTDBF OPRSC_CHECK RSC_STOREDRETRIEVERSSTORERSC REGEN EGENFP EGENBUFFER FOXAPPDIR FINDSRC MPR_NAME MPX_NAME QUITTING _Q4E12HSXE_Q4E12HT0L_Q4E12HT8S_Q4E12HTE6LISTDBF _Q4E12HTHS_Q4E12HTK6OTHER _Q4E12HTP0_Q4E12HTSF_Q4E12HTV8_Q4E12HTZI_Q4E12HU3J_Q4E12HU6ALISTSCX _Q4E12HU9T_Q4E12HUD6ADVANCED @_Q4E12HX0F_Q4E12HX36_Q4E12HX66_Q4E12HX67CLOSE_UP 2INVSTEM CDXNAME INVERT APPDOC IN_WRAP IN_LMARGININ_RMARGININVNAME INBAILOUT S#APPSHELL 2/1/92# \LIBS\FPATH ON ERROR &app_error ON ESCAPE &app_escape qprview.vue2 qprview.vue appview.vue2 appview.vue dbfselec.vue2 dbfselec.vue foxapp.vue2 foxapp foxapp.vue SCXNAME C:DBFNAME ENINVNAME CDXNAME REPNAME NTMFNAME BAILOUT SKIPDBFBUTORIGNAME DBFLIST MNUNAME XTAPPFILE VERSIONDATADDBS GFOXAPPDIR APP_ERROR APP_ESCAPEQPRVIEW PRAPPVIEW DBFSELEC FOXAPP APP_TALK TAPP_SAFE prgs\appproc.prg menus\appmenu.mnx menus\appmenu.mnt screens\getdest.scx screens\getdest.sct screens\getorder.scx screens\getorder.sct screens\appabout.scx screens\appabout.sct screens\appsrch.scx screens\appsrch.sct screens\prtsetup.scx screens\prtsetup.sct screens\prtopts.scx screens\prtopts.sct screens\appctrl.scx screens\appctrl.sct FXPATH C:ADDBS ENFOXAPPDIR PROJDIR JUSTPATH NAPPFILE PUTOUT PATHNAME :SOURCE ENTARGET FILNAME JUSTFNAME ADDBS FOXAPP.SRC FOXAPP.SRC FoxApp source files must be available to build projects. Please locate the FOXAPP.SRC file: FoxApp cannot build a full project without its source files. PATHz APPDIR :TARGFILE NADDBS ALERT CLOSE_UP JUSTPATH JANUARY FEBRUARY MARCH APRIL AUGUST SEPTEMBER OCTOBER NOVEMBER DECEMBER :VDATESTR NVMONTHSTR VMONTH COMPATIBLEz SAFETYz Indexing on IF TYPE(m.fldname) = "C" AND LEN(&fldname) >= 99 INDEX ON SUBSTR(&fldname,1,99) TO (m.fldname) INDEX ON &fldname TAG (m.fldname) Indexing for is complete! FILNAME :COMP_STAT SAFE_STAT IN_AREA FSTEM JUSTSTEM LNAME FLDNAME APPCTRL.SCX FOXAPP\SCREENS\APPCTRL.SCX SELECT &sname Master screen set record missing! SET DEFAULT TO &c_path PJXNAME :SCXNAME CTRL_Y CTRL_X IN_AREA SNAME CTRL_NAME REGEN UTCTRL_SCX ADDBS JUSTPATH TJUSTSTEM PJXFILE TTYPE GHOMENAME HOMEDIR EMODAL PRJUSTFNAME FORCEEXT SETNUM SETID ARRANGED SCRNORDER CTRL_ORDERUSER_SCX RTIMESTAMP EXCLUDE PESCRNROW NSCRNCOL NCLOSE_UP XNAME XNAME DBFLIST NUMAREAS NUMCOLS CSTEMNUM ARRANGED SROWNUM TSCOLNUM EROWNUM ECOLNUM Please locate the database FNAME :STEM JUSTSTEM Screen has been created. Database could not be opened. :MAXV S_NAME SCXNAME OPENDBF DBFNAME ADDBS JUSTPATH TJUSTSTEM ADDSCX MODSCX TVPOS WIDTH HEIGHT ECENTER PRSTYLE ERRSHOW FILNAME :FILARRAY FILPOS JUSTFNAME NEXTDBF MEMOWIDTHz FOXAPP2.0 DBFLIST Retrieving stored relationships. dbflistf Where is FF could not be found! CSTEM :NEXTDBF IN_AREA J1_AT J2_AT MEMWIDTH TNAME TINITDBFLISCTRLLINE CTRLROW CTRLCOL ENUMAREAS THIS_DBF RNUMCOLS DBFLIST CSTEMNUM CDBFNUM JUSTSTEM ALERT CLOSE_UP MAKECDX RCFLDNUM Resource file is read-only. Not updated. FOXAPP2.0 DBFLIST Existing resource record is read-only. Not updated. dbflist[i,j]f FOXAPP2.0 DBFLIST CSTEM :IN_AREA _AREA REPL_STR FILATTR STORERSC TTYPE TREADONLY CTRLROW TCTRLCOL ISNUMAREAS NUMCOLS DBFLIST EDATA CKVAL RUPDATED RSC_STOREDO FILNAME :TAGNAME CDXNAME JUSTTAG FORCEEXT OPENDBF INVERT HIGHT :WIDTH SCHEME FROMROW FROMCOL TOROW TOCOL WIND_NAME ALERT MESSG LINENO DEFINEWINDALERT TALKz CONSOLEz IN_TALK IN_CONS NDNUMLINES ALERT_ARRYREMAIN MAXLEN TTOP_ROW RYBOT_ROW TOP_COL TBOT_COL ALERT TKEYCODE Line No.: FF Program: Error: Source: E_PROGRAM E_MESSAGE E_SOURCE DE_LINENO E_ERROR RYALERT CLOSE_UP Escape pressed. FoxApp is terminating. E_PROGRAM E_MESSAGE E_SOURCE DE_LINENO E_ERROR RYM_QUITTINGCLOSE_UP ORIGNAME DBFNAME APPPATHLENSKIPDBFBUT) Invalid database name. Invalid database name. A screen file name is not allowed here. A menu file name is not allowed here. DBFLISTf DBFNAME ORIGNAME RSC_CHECK CLEANPATH JUSTSTEM YJUSTEXT NGJUSTFNAME FORCEEXT DBFALIAS YOPENDBF SCXNAME TSKIPDBFBUTDBFLIST TCSTEMNUM Database name: DBFNAME MYWIN DNAME OPENDBF ADDDBF YMODDBF DBFNAME OPENDBF MODDBF ORIGNAME DBFNAME Database name: DBFLISTf DBFNAME ORIGNAME RSC_CHECK OPENDBF SCXNAME YFORCEEXT GDBFLIST CSTEMNUM JUSTSTEM dbfselec.spr OPENDBF DBFNAME DBFSELEC DBFALIAS SCXNAME APPPATHLENMODSCX ADDSCX Invalid screen name. SCXNAME CLEANPATH JUSTFNAME FORCEEXT JUSTSTEM Screen file name UNTITLED.SCX SCXNAME CREATESCX Creating screen file SCXNAME CREATESCX Creating screen SCXNAME CREATESCX ADDSCX Screen file name: ORIGNAME SCXNAME Name your application:F FOXAPP.APP I named my program FoxApp. You have to name yours something else. is an invalid path. DBFLISTf Saving database relations and window positions. Generating application FF scaffold.prg * * * <<DATE()>> scaffold.prg <<TIME()>> * * * * Description: * This program was automatically generated by FoxApp. * * * To run this application, type DO <<UPPER(justfname(m.appfile))>> * Set up runtime environment CREATE VIEW appview SET TALK OFF PUSH MENU _msysmenu PUSH KEY CLEAR fxapp_error = ON('ERROR') fxapp_esc = ON('ESCAPE') SET LIBRARY TO fpath SET SAFETY OFF SAVE MACROS TO foxapp SET SAFETY ON SET DELETED ON SET ESCAPE OFF SET STEP OFF SET ECHO OFF SET PROCEDURE TO appproc.prg SET CURSOR ON CLOSE DATABASES ON ERROR DO apperror WITH PROGRAM(),MESSAGE(),MESSAGE(1),LINENO(),ERROR() IF TYPE("BAILOUT") <> "U" RELEASE bailout ENDIF IF TYPE("DBFNAME") <> "U" RELEASE dbfname ENDIF IF TYPE("WIN_NAME") <> "U" RELEASE win_name ENDIF IF TYPE("FILT_EXPR") <> "U" RELEASE filt_expr ENDIF IF TYPE("SRCHTERM") <> "U" RELEASE srchterm ENDIF regen = .T. && use SPR/MPR files instead of PRGs EXTERNAL SCREEN getdest, getorder, appabout, ; appsrch, prtopts, prtsetup regen = .F. EXTERNAL PROCEDURE getdest, getorder, appabout, ; appsrch, prtopts, prtsetup PUBLIC bailout, dbfname, win_name, filt_expr, srchterm m.bailout = .F. m.dbfname = "<<m.dbfname>>" && database name m.qprpath = justpath(m.dbfname) && query file path m.filt_expr = "" && filter expression, if any m.srchterm = SPACE(60) && search term * Define constants for addressing DBFLIST numareas = <<m.numareas>> numcols = <<m.numcols>> cstemnum = <<m.cstemnum>> relstrnum = <<m.relstrnum>> pfldnum = <<m.pfldnum>> cfldnum = <<m.cfldnum>> cdbfnum = <<m.cdbfnum>> pdbfnum = <<m.pdbfnum>> srownum = <<m.srownum>> scolnum = <<m.scolnum>> erownum = <<m.erownum>> ecolnum = <<m.ecolnum>> arranged = <<m.arranged>> ctrlrow = <<m.ctrlrow>> ctrlcol = <<m.ctrlcol>> nextdbf = <<m.nextdbf>> DO DefineDbf && define the DBFLIST array * Summon the main application menu DO <<_mname>> * Open the main database m.stem = juststem(m.dbfname) IF USED(m.stem) SELECT (m.stem) SELECT 0 IF !FILE(m.dbfname) m.dbfname = GETFILE('DBF','Please locate the '+JustStem(m.dbfname)+' database') ENDIF IF EMPTY(m.dbfname) OR !FILE(m.dbfname) DO alert WITH "The "+m.stem+" database could not be found." DO cleanup RETURN ELSE USE (m.dbfname) ENDIF ENDIF * Make sure the index exists and is hooked up IF EMPTY(CDX(1)) IF !FILE(forceext(m.dbfname,'CDX')) DO invert WITH m.dbfname ELSE SET INDEX TO (forceext(m.dbfname,'CDX')) ENDIF ENDIF SET ORDER TO 1 IF RECCOUNT() = 0 APPEND BLANK IF RECCOUNT() < 10 COUNT FOR !DELETED() TO notdel IF m.notdel = 0 APPEND BLANK && all records were deleted! ENDIF ENDIF ENDIF GOTO TOP CLEAR Putting F screen into window. SELECT F * The following line was added by FoxApp SELECT win_name = "<<win_name>>" DO WHILE !bailout * Set up any related databases DO setrelat * Display the main screen file DO <<sc_file>> ENDDO DO cleanup RETURN ******************************************************************* PROCEDURE cleanup * Clean up after the application SET PROCEDURE TO CLOSE DATABASES CLEAR WINDOWS IF SET('TALK') = 'ON' SET TALK OFF t_stat = 'ON' t_stat = 'OFF' ENDIF SET TALK OFF * Restore databases, indexes and environment IF FILE("appview.vue") SET VIEW TO appview SET TALK OFF DELETE FILE appview.vue ENDIF IF FILE("foxapp.fky") RESTORE MACROS FROM foxapp DELETE FILE foxapp.fky ENDIF IF t_stat = "ON" SET TALK ON ENDIF POP KEY ALL POP MENU _msysmenu CLEAR PROGRAM *Restore original error and escape routines IF TYPE('fxapp_error') = 'C' ON ERROR &fxapp_error ENDIF IF TYPE('fxapp_esc') = 'C' ON ESCAPE &fxapp_esc ENDIF RELEASE LIBRARY fpath SET SAFETY ON RELEASE bailout, dbfname, win_name, filt_expr, srchterm, skipvar, act3 RELEASE dbflist RETURN ******************************************************************* PROCEDURE setrelat * This procedure opens subsidiary databases (if any) and establishes * the relations between the main database and the subsidiary * databases. It will be empty if there are no subsidiary databases. DBFLISTf SELECT <<CHR(i+64)>> dname = "<<dbflist[i,m.cdbfnum]>>" IF !FILE(m.dname) dname = GETFILE('DBF','Please locate the '+Juststem(m.dname)+ ' database:') IF EMPTY(m.dname) OR !FILE(m.dname) DO alert WITH "The "+ALLTRIM(m.dname+" database could not be found.") DO cleanup CANCEL ELSE SET PATH TO (SET('PATH') + ';' + Justpath(m.dname)) dbflist[<>,m.cdbfnum] = m.dname dbflist[<>,m.cstemnum] = juststem(m.dname) ENDIF ENDIF USE (dname) ALIAS <<dbflist[i,m.cstemnum]>> ORDER TAG <<m.tagname>> DEFINE WINDOW <<dbflist[i,m.cstemnum]>> ; FROM <<dbflist[i,m.srownum]>>,<<dbflist[i,m.scolnum]>> ; TO <<dbflist[i,m.erownum]>>,<<dbflist[i,m.ecolnum]>> ; FLOAT GROW ZOOM NOCLOSE MINIMIZE ; COLOR SCHEME 10 BROWSE LAST NOWAIT; WINDOW <<dbflist[i,m.cstemnum]>> ; NOAPPEND ; COLOR SCHEME 10 SELECT <<Juststem(dbflist[i,m.pdbfnum])>> <<dbflist[i,m.relstrnum]>> ADDITIVE * Restore the following line if you only want to see records in the * parent file that have related records in the child file. *SET FILTER TO FOUND('<<dbflist[i,m.cstemnum]>>') SELECT <<Juststem(m.dbfname)>> RETURN ******************************************************************* PROCEDURE definedbf * Define the dbflist array PUBLIC dbflist[m.numareas,m.numcols] DBFLISTf dbflist[i,j]f DBFLIST[<>,<<j>>] = <<'"'+dbflist[i,j]+'"'>> DBFLIST[<>,<<j>>] = <<dbflist[i,j]>> DBFLIST[<>,<<j>>] = '' ******************************************************************* DEFAULTzF SET DEFAULT TO &p_path APPMENU.MPR DELETE FILE &mpr_name APPMENU.MPX DELETE FILE &mpx_name appproc.prg appmenu.mnx prtsetup.scx getdest.scx getorder.scx appabout.scx appsrch.scx fpath.plb PRGS\appproc.prg MENUS\appmenu.prg SCREENS\prtsetup.prg SCREENS\getdest.prg SCREENS\getorder.prg SCREENS\appabout.prg SCREENS\appsrch.prg LIBS\fpath.plb SET DEFAULT TO &c_path WIN_STRINGDNAME QUOTED SC_FILE STSTEM XNAME GGENERATE DBFNAME SCXNAME YFORCEEXT CREATESCX MNUNAME UTAPPFILE TVALID_NAMEJUSTFNAME ALERT ADDBS NAMEJUSTPATH RSC_STOREDSTORERSC PUTDBFLISTDBFLIST JUSTSTEM GTMFNAME NGREGEN _MNAME VCOORD RHCOORD RSCRNFILE EWIN_MSG NSTYLE NCENTER RWIDTH HEIGHT SCHEME NSCHEME2 WIN_NAME RELATEDDBFCTRLROW CTRLCOL xSROWNUM SCOLNUM FLOAT CLOSE ACTIVATE SCSTEMNUM RTAGNAME CFLDNUM NUMAREAS NUMCOLS APPNAME OPPROJNAME SC_NAME DC_PATH RSP_PATH PJTNAME NMPR_NAME NMPX_NAME COPYPIECE APPPROC APPMENU PRTSETUP 12HT0LGETDEST 8SGETORDER 6APPABOUT APPSRCH HSFPATH HTK6PLB FOXAPPDIR MERGECTRL advance.spr ADVANCE NGSPR QUITTING CURRWIND GDBFNAME SKIPDBFBUTGENERATE OTHER YADDDBF GMODDBF SCXNAME ADDSCX YMODSCX RSC_CHECK RETRIEVERSNEXTDBF TGETDBFLISTCLOSE_UP COPYPIECE PUTOUT FINDSRC VERSIONDAT INVERT MERGECTRL INITDBFLIS OPENDBF CREATESCX FILATTR RELATEDDBF GETDBFLIST PUTDBFLIST MAKECDX DEFINEWIND ACTWIN ERRSHOW ALERT APPERROR APPESCAPE _Q4E12HSXE _Q4E12HT0L _Q4E12HT8S _Q4E12HTE6 _Q4E12HTHS _Q4E12HTK6 _Q4E12HTP0 _Q4E12HTSF _Q4E12HTV8 _Q4E12HTZI _Q4E12HU3J _Q4E12HU6A _Q4E12HU9T _Q4E12HUD6 _Q4E12HX0F _Q4E12HX36 _Q4E12HX66 _Q4E12HX67 could not be located. FNAME TALKz COMPATIBLEz dbfselec Related Databases dbfselec.vue addbs forceext defaultext juststem justext justpath justfname DBFLISTf Database to open: dbfselec @ 0,1 GET dbfselec PICTURE "@&N" FROM dbflist SIZE 14,16 DEFAULT 1 WHEN _q4e12fura() VALID _q4e12fuur() COLOR SCHEME 6 @*VN \<Add;C\<lear @*VT \!\<OK;\?\<Cancel @*HN A\<rrange @*HN \<Show Tree dbfselec treewind CURRAREA LTALKSTAT COMPSTAT DBFSELEC ADDBS FORCEEXT DEFAULTEXTJUSTSTEM JUSTEXT JUSTPATH JUSTFNAME NEXTDBF INITDBFLISDBFLIST CSTEMNUM CDBFNUM NEWDBF FSELEC NUMAREAS ORIGDBFLISNUMCOLS SORIGNEXTDBADDCLR _Q4E12FV3FOKBUT _Q4E12FVLXARRANGE _Q4E12FVRDTREE1 _Q4E12FWAO_Q4E12FWFL_Q4E12FWFNTREEWIND ARREXFLG LCTRLROW CTRLCOL NUMAREAS DBFLIST CSTEMNUM TSROWNUM SCOLNUM EROWNUM ECOLNUM ARRANGED APPGEN LISDBFSELEC ARREXFLG LCTRL RLCOL NUMAREAS DBFLIST CSTEMNUM APPGEN DBFSELEC DBFNUM NUMAREAS DBFLIST PDBFNUM CSTEMNUM treewind treewind treewind treewind DBFNUM LINDENT TREESTR DBFLIST CSTEMNUM END_ROW NEXTDBF S_COL TTREEWIND EESTR NUMAREAS PDBFNUM SHOWTREE DBFSELEC LNEXTDBF ADDCLR HASCHILD Main database. relselec.spr DBFSELEC LNEWDBF DBFLIST CSTEMNUM CHILDFLD CFLDNUM CHILDDBF CDBFNUM TPARENTFLD PFLDNUM IGNCASE RELSTR RELSTRNUM PARENTDBF PDBFNUM ADDMODE RELSELEC JUSTSTEM There are no available work areas left. Database to open: Duplicate database names are not allowed. relselec.spr You cannot clear the main database. You cannot clear a database that has related databases. ADDCLR LNEXTDBF NUMAREAS NEWDBF JUSTEXT JUSTSTEM DBFLIST TCSTEMNUM CHILDFLD CHILDDBF PARENTFLD IGNCASE RELSTR PARENTDBF RELSELEC MAKECDX RELSTRNUM PFLDNUM CFLDNUM CDBFNUM SPDBFNUM BSROWNUM SCOLNUM 3FEROWNUM ECOLNUM LXDBFSELEC ARRANGE RDHASCHILD NUMCOLS Saving database relations and window positions. dbfselec.vue2 dbfselec.vue dbfselec.vue2 dbfselec.vue OKBUT LRELATEDDBFSTORERSC PUTDBFLISTDBFLIST CSTEMNUM ORIGDBFLISNEXTDBF TORIGNEXTDBDBFSELEC treewind treewind \<Arrange ALT+A \<Save \<Exit \Window \Edit DO arrsave DO arrexit Control panel Control panel treewind ARREXFLG LTREE_UP FAPPGEN DBFSELEC TTREEWIND ARRANGE ARNGPOP ISARR_SCRN TCTRLROW DBCTRLCOL SCTRL SCXNAME DBFLIST CSTEMNUM MAXLEN MAXHEIGHT MAXCAPT KECDX FXSCXNME WIDTH HEIGHT ARRANGED SNEXTDBF BSTART_ROW END_ROW START_COL END_COL LXSROWNUM SCOLNUM NUMAREAS WIN_HEIGHTWS_ROW GHTWS_COL GHTWE_ROW WE_COL GHTEROWNUM HTECOLNUM treewind \<Show tree No tree to show! Database tree \<Hide tree TREEWIND LTREE1 FNEXTDBF START_ROW END_ROW START_COL END_COL ISSHOWTREE NEXTDBF LARRANGE treewind CURRWIND LTREEWIND FSHOWTREE ARRSAVE ARREXIT HASCHILD SHOWTREE _Q4E12FURA _Q4E12FUUR _Q4E12FV3F _Q4E12FVLX _Q4E12FVRD _Q4E12FWAO _Q4E12FWFL _Q4E12FWFN TALKz COMPATIBLEz relselec Database Relations addbs forceext defaultext juststem justext justpath justfname Please locate the F database relselec @*VN \!\<OK;\?\<Cancel How is this database connected to the others? Fields in Fields in Other Databases: This database: relselec CHILDSTEM CHILDDBF CHILDFLD PARENTFLD IGNCASE RELSTR PARENTDBF ADDMODE DMODE CHILDLIST PARENTLISTCURRAREA TALKSTAT COMPSTAT RELSELEC ADDBS FORCEEXT DEFAULTEXTJUSTSTEM JUSTEXT JUSTPATH JUSTFNAME IN_AREA PARENTROW ILDSTEM ADDTYPE CHILDROW NEWCHILD NEWPARENT CDISLIST _Q4E12FZRI_Q4E12FZUJOKCANCL _Q4E12FZXF_Q4E12G05JS FLDNAME FLDNAME RETVAL CURITEM SOURCETYPETARGTYPE RENTFLD GETTYPE PECHILDLIST PARENTLIST CDISLIST CHILDLIST CHILDFLD The child database could not be found. The parent database could not be found. SET RELATION TO F INTO Parent and child have different data types. PARENTFLD CHILDFLD OKCANCL DBFPART RELSTR TPARENTDBF ADDMODE CHILDSTEM CHILDDBF CURRWIND PARENTFLD GETTYPE CHILDFLD OKCANC ADDTYPE GETTYPE CDISLIST _Q4E12FZRI _Q4E12FZUJ _Q4E12FZXF _Q4E12G05J FoxPro Library must be loaded by FoxPro $-c%7@ ZY[X= WPSQR UWPSQR UWPSQR UVWQS [Y_^] [Y_^] UVWQSR [Y_^] u 6;L UVWQS [Y_^] RQSUVW _^][YZ UWVQS X[Y^_] ZY[X] ZY[X] !Stack Overflow! ^Y[]M ^Y[]M _^Y[]M ^Y[]M ^Y[]M ^Y[]M ^Y[]M ^Y[]M ^Y[]M ^Y[]M _^Y[]M _^Y[]M _^Y[]M _^Y[]M 0123456789abcdefghijklmnopqrstuvwxyz <0r!<9w tX<et <0r(<9w$ SQRVW _^ZY[]M ?C~#OS Floating-point support not loaded <fr v0<gt Invalid memo size Error reading memo field CueaaaaceeeiiAAEaAooouuyOUaiounN Data type mismatch Not a BCD Real The quick brown fox jumps over the lazy dog. The ALLTRIM test The REDUCE test The DELETE test The INSERT test Inserted: The CHRTRAN test The OCCURS test Count the number of 'e' characters in string. The AT test Find the position of the first 's' The RAT test Find the position of the last 's' The REPLICATE test Make 5 'z' characters. The STRALLTRAN test the lazy the crazy The PADL test The PADR test The SPACES test The STUFF test The WORDS test There are words in the string. The WORDNUM test The FCTNPARM test function(a+b,c+d,foo(e-f+g,h),i) acosh log10 atanh atan2 dpowi ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890_^$~!#%&-{}()@`:.' ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890_^$~!#%&-{}()@`:.'\ 8888888888 XXXXXXHHHHHHHHHHHHHHHHHHHH Jb0@ ?{Q}< =@[V6 JUSTFNAME JUSTSTEM JUSTEXT JUSTPATH JUSTDRIVE FORCEEXT DEFAULTEXT ADDBS VALIDPATH CLEANPATH REDUCE ?,.C,.I STRFILTER EUROSORT ?,.C,.C WORDS WORDNUM ?,I,.C NEXTWORD FCTNPARM DBL2NUM NUM2DBL FLOAT2NUM LONG2NUM INT2NUM FPATHTEST TALKz COMPATIBLEz advance Advanced Options addbs forceext defaultext juststem justext justpath justfname advance @*RVN \<Abbreviated projects;\<Full projects Project generation method: @*C \<Store relations @*HN \!\<OK;\?\<Cancel @*C \<Retrieve relations Resource file options: advance CURRAREA TALKSTAT COMPSTAT ADVANCE ADDBS FORCEEXT DEFAULTEXTJUSTSTEM JUSTEXT JUSTPATH JUSTFNAME REGEN FULLPROJ ORIGRETRIERETRIEVERSORIGSTORE STORERSC ADVOK _Q4E12GC3To ADVOK REGEN FULLPROJ FINDSRC FOXAPPDIR RETRIEVERSORIGRETRIESTORERSC ORIGSTORE _Q4E12GC3T SCREENS\APPSCX.SPR C:\FOXPRO2\FOXAPP\ PRGS\APPSHELL.PRG SCREENS\DBFSELEC.SPR SCREENS\RELSELEC.SPR C:\FOXPRO2\FOXAPP\LIBS\ SCREENS\ADVANCE.SPR APPSCX.SPX APPSHELL.FXP DBFSELEC.SPX RELSELEC.SPX FPATH.PLB ADVANCE.SPX